Belgian Amiga Club - ADF Collection

home *** CD-ROM | disk | FTP | other *** search

/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Helm d4.adf / BabyPaint (.txt) < prev next >

Wrap

Helm Multimedia Book | 1993-07-14 | 31KB | 415 lines

BabyPaint 11-Nov-92 on BookOpen begin set tool to 0 click on object id 1 click on object id 19 click on object id 41 put 1 into object id 2 resetpaint on BookClose begin set tool to 0 New... Open... Make Copy... Streamline... Print... Report... Preferences... Workbench Help... About... Quit... Paste Clear Select All Cut Page Copy Page Colors Load... Save... Restore Colors Default Colors Brush Colors Image Colors Cycle Grid... Stop Sound Show All Edit Form Share Next Page Previous Page First Page Last Page Backward Forward Last Book Browse... Autobrowse... Bookshelf New Page Delete Page New Form Load Form... Save Form... Image Load... Save... Capture... Clipboard Paste Spare Swap Frames Copy to Spare Merge in Front Merge in Back Delete Spare Frame Previous Delete Copy to All Color Remap Transparency Paper <-> Pen Paper -> Pen Count Vertical Horizontal Info... Brush Load... Save... Restore Clipboard Paste Color Remap Transparency Paper <-> Pen Paper -> Pen Center Corner Any Point Any Size Halve Double Halve Width Halve Height Double Width Double Height To PAL To NTSC Vertical Horizontal Shear Vertical Horizontal Rotate Any Angle Paint Matte Color Replace Smear Dissolve Spare Cycle Cycle 2 Gradient Gradient 2 Smudge Chaos Count Custom Dither Edges Object Load... Save... Bring to Front Send to Back Bring Closer Send Farther Group Ungroup Duplicate... Align... Info... Actions... Script... Load... Save... Plain Underline Italic Shadow Font... Spacing... Hypertext Actions... Script... Tools Coordinates Title Bar Palette Colors Patterns Paint Tools Paint Types Histogram Magnifier Messages Draw Tools Layers Pages Author Book... Form... Page... Display... Menus... Narrator... Hypertext... Resources... Effect... Effect Area DDDUUUfffwww house.brush smile.brush topaz.fontGLOB ram:house.brush RAM:Test.book Shelf /on SelectUp begin set the pencolor to me 6on SelectDown begin set the tool to 4 'freehand 2on SelectDown begin set the tool to 5 'line Aon SelectDown begin set the tool to 32777 'solid rectangle 7on SelectDown begin set the tool to 9 'rectangle @on SelectDown begin set the tool to 32778 'filled ellipse 6on SelectDown begin set the tool to 10 'ellipse 6on SelectDown begin set the tool to 8 'airbrush 3on SelectDown begin set the tool to 7 'flood aon SelectDown begin set the polysides to 4 set the tool to 32779 'filled regular polygon aon SelectDown begin set the polysides to 3 set the tool to 32779 'filled regular polygon #on SelectUp begin undo paint $on SelectUp begin clear paint Lon SelectDown begin set the painttype to zero put me into the brush Lon SelectDown begin set the painttype to zero put me into the brush Lon SelectDown begin set the painttype to zero put me into the brush Lon SelectDown begin set the painttype to zero put me into the brush Eon SelectDown begin set painttype to 1 put me into the brush Eon SelectDown begin set painttype to 0 put me into the brush Aon SelectDown begin set painttype to 1 put me into brush Aon SelectDown begin set painttype to 1 put me into brush Aon SelectDown begin set painttype to 1 put me into brush Aon SelectDown begin set painttype to 1 put me into brush on FormOpen begin FormOpen DDDUUUfffwww on PageOpen begin JFORM 6ILBMBMHD DDDUUUfffwww TFORM @ILBMBMHD @@@PPP```ppp ILBMBMHD HFORM 4ILBMBMHD @@@PPP```ppp ILBMBMHD ILBMBMHD ppppCRNG ILBMBMHD ppppCRNG ILBMBMHD ppppCRNG ILBMBMHD ppppCRNG ILBMBMHD ppppCRNG ILBMBMHD ppppCRNG ILBMBMHD ppppCRNG *FORM ILBMBMHD 0FORM ILBMBMHD DDDUUUfffwww >FORM *ILBMBMHD DDDUUUfffwww DFORM 0ILBMBMHD DDDUUUfffwww XFORM DILBMBMHD DDDUUUfffwww `FORM LILBMBMHD DDDUUUfffwww xILBMBMHD xILBMBMHD xILBMBMHD xILBMBMHD FORM ILBMBMHD DDDUUUfffwww &FORM ILBMBMHD JFORM 6ILBMBMHD on PageOpen begin Shelf /on SelectUp begin set the pencolor to me 6on SelectDown begin set the tool to 4 'freehand 2on SelectDown begin set the tool to 5 'line Aon SelectDown begin set the tool to 32777 'solid rectangle 7on SelectDown begin set the tool to 9 'rectangle @on SelectDown begin set the tool to 32778 'filled ellipse 6on SelectDown begin set the tool to 10 'ellipse 6on SelectDown begin set the tool to 8 'airbrush 3on SelectDown begin set the tool to 7 'flood aon SelectDown begin set the polysides to 4 set the tool to 32779 'filled regular polygon aon SelectDown begin set the polysides to 3 set the tool to 32779 'filled regular polygon #on SelectUp begin undo paint $on SelectUp begin clear paint Lon SelectDown begin set the painttype to zero put me into the brush Lon SelectDown begin set the painttype to zero put me into the brush Lon SelectDown begin set the painttype to zero put me into the brush Lon SelectDown begin set the painttype to zero put me into the brush Eon SelectDown begin set painttype to 1 put me into the brush Eon SelectDown begin set painttype to 0 put me into the brush Aon SelectDown begin set painttype to 1 put me into brush Aon SelectDown begin set painttype to 1 put me into brush Aon SelectDown begin set painttype to 1 put me into brush Aon SelectDown begin set painttype to 1 put me into brush on FormOpen begin FormOpen DDDUUUfffwww